﻿
Imports System.IO
Imports xmlctrl
Imports xhtmlctrl
Imports webctrl

Public Class tworailspage
    Inherits xhtmlpage

    Private _tworails As tworails = Nothing

    Public Function tworails() As tworails
        assert(Not _tworails Is Nothing, "have not created valid tworails.")
        Return _tworails
    End Function

    Public Function leftrail() As div
        Return tworails().leftrail()
    End Function

    Public Function rightrail() As div
        Return tworails().rightrail()
    End Function

    Public Sub setData(ByVal ds As tworails.datasource)
        _tworails = New tworails(ds)
        addchild(tworails())
    End Sub

    Public Sub New(ByVal ds As tworails.datasource, Optional ByVal buff As Stream = Nothing)
        Me.New(buff)
        setData(ds)
    End Sub

    Public Sub New(Optional ByVal buff As Stream = Nothing)
        MyBase.New(buff)
    End Sub
End Class
